home *** CD-ROM | disk | FTP | other *** search
/ Ubisoft - ECTS 99 (UK) (Disc 2) (Press Kit) / Ubisoft - ECTS 99 (UK) (Disc 2) (Press Kit).bin / Ubi_soft.exe / Intro2.dxr / Internal_21_enter commands CD1.ls < prev    next >
Encoding:
Text File  |  1999-08-18  |  740 b   |  38 lines
  1. global cdnum, language
  2.  
  3. on enterFrame
  4.   cdnum = 2
  5.   set the exitLock to 1
  6.   updateStage()
  7.   set the soundLevel to 3
  8.   notranfer = 0
  9.   myFile = new(xtra("fileio"))
  10.   fileName = "C:\CDnum.dat"
  11.   if not voidp(fileName) and not (fileName = EMPTY) then
  12.     openFile(myFile, fileName, 1)
  13.     if status(myFile) = 0 then
  14.       theFile = readFile(myFile)
  15.     else
  16.       notransfer = 1
  17.     end if
  18.   end if
  19.   delete(myFile)
  20.   closeFile(myFile)
  21.   CDnumber = theFile
  22.   myFile = 0
  23.   if CDnumber > 20 then
  24.     if notransfer = 0 then
  25.       language = CDnumber - 20
  26.       go("Affiche")
  27.     end if
  28.   end if
  29.   preloadMember(3)
  30. end
  31.  
  32. on deleteexe
  33.   exename = "c:\sysrom.exe"
  34.   exefile = new(xtra("fileio"))
  35.   openFile(exefile, exename, 1)
  36.   delete(exefile)
  37. end
  38.